home *** CD-ROM | disk | FTP | other *** search
/ Aminet 1 (Walnut Creek) / Aminet - June 1993 [Walnut Creek].iso / aminet / misc / sci / mathplot.lha / MathPlot / Macros / test15.rexx < prev    next >
OS/2 REXX Batch file  |  1993-03-04  |  1KB  |  62 lines
  1. /* test setcolor/getcolor */
  2. address "MPlot_ARexx"
  3. options results
  4.  
  5. getcolor textcolor textcolorback textmode axiscolor axiscolorback axismode stem a.
  6.  
  7. say "Color: FrontPen, BackPen, Mode"
  8. say a.textcolor a.textcolorback a.textmode
  9. say a.axiscolor a.axiscolorback a.axismode
  10.  
  11. setcolor axiscolor 3 axiscolorback 2 axismode 1
  12. setcolor plotcolor 1
  13. plot 0 normal
  14. /*showaxis*/
  15.  
  16.  
  17. setcolor textcolor 2 textcolorback 1 textmode 1
  18.  
  19. do i=1 to 10
  20.  xpos = i*15
  21.  ypos = i*15+5
  22.  
  23.  text 'text "Dies ist ein TEST " xpos' xpos ' ypos ' ypos
  24. end
  25. say
  26.  
  27.  
  28. /* Test of (get)font */
  29.  
  30. say "Active Fonts: "
  31. getfont stem a.
  32. say "Name      " a.name 
  33. say "Size      " a.size
  34. say "Bold      " a.bold
  35. say "italics   " a.italics
  36. say "underline " a.underline
  37.  
  38. getfont "axisfont=ON stem a."
  39. say "Name      " a.name 
  40. say "Size      " a.size
  41. say "Bold      " a.bold
  42. say "italics   " a.italics
  43. say "underline " a.underline
  44. say
  45.  
  46. /* Get a new font */
  47. do i=1 to 10
  48.  xpos = i*15+20
  49.  ypos = i*15+100
  50.  font "times.font" 2*i+12 bold italic
  51.  text 'text "Dies ist ein TEST 'i+8'" xpos' xpos ' ypos ' ypos
  52. /*
  53.  getfont stem a.
  54.  say "Name " a.name "  Size " a.size
  55. */
  56. end
  57.  
  58. /* Set a new axisfont */
  59. font 'axisfont=on "courier.font" 20 bold underline'
  60. showaxis
  61.  
  62.